vbslib

(for Internet Explorer)

Sub WriteTextSectionClass::PickUp( Key as string )

残すセクションを選択します。

セクションの中に含まれる文字列

本関数を１度でも呼び出すと、WriteTextSectionClass のオブジェクトの参照カウンターが 0
になったとき、選択されなかったセクションはすべて削除されます。

本関数を１度も呼び出さなかったときは、すべてのセクションが残ります。

[SectionX]
SettingA = abc

SettingB = 12
; comment

[SectionY]
SettingA = BC

下記の形式のテキストファイルで記述された設定値を扱います。

行末までのコメント記号は、行頭のみ対応

セクション名は省略可能

Function ParseIniFileLine( Line as string ) as ParsedIniFileLineClass

.ini ファイルに書かれた行を解析します。

.ini ファイルの中の１行

Set line = ParseIniFileLine( "[Section1]" )
'// line.Section = "Section1"
'// line.Name = Empty
'// line.Value = Empty

Set line = ParseIniFileLine( "Name = Value" )
'// line.Section = Empty
'// line.Name = "Name"
'// line.Value = "Value"

Set line = ParseIniFileLine( "Name =" )
'// line.Section = Empty
'// line.Name = "Name"
'// line.Value = ""

Set line = ParseIniFileLine( "comment" )
'// line.Section = Empty
'// line.Name = Empty
'// line.Value = Empty

[ ] で囲まれた行は、セクション名として解析します。
= がない行は、コメント行として解析します。

ParsedIniFileLineClass

T_GetIniFileTextValue

Function GetIniFileTextValue( IniText as string, SectionName as string,
VariableName as string, Option_ as Empty ) as string

.ini ファイルに書かれた設定値を参照します。

.ini ファイルの内容

セクション名、セクションがないファイルでは=Empty

Empty を指定してください

T_GetIniFileTextValue

Assert GetIniFileTextValue( text, Empty, "NameA", Empty ) = "Value"

該当する変数が存在しないときは、Empty が返ります。

Assert GetIniFileTextValue( text, "SectionB", "NameA", Empty ) = "Value"

Function GetIniFileTextValues( IniText as string, SectionName as string,
VariableName as string, Option_ as Empty ) as array of string

.ini ファイルに書かれた設定値を複数参照します。

.ini ファイルの内容

セクション名、セクションがないファイルでは=Empty

変数の設定値の配列

Empty を指定してください

該当する変数が存在しないときは、空の配列が返ります。

Assert IsSameArray( GetIniFileTextValues( text, "Section", "NameA", Empty ), _
Array( "Value1", "Value2" )

T_GetIniFileTextValue

after_text = SetIniFileTextValue( before_text, Empty, "NameA", "Value", Empty )

Function SetIniFileTextValue( IniText as string, SectionName as string,
VariableName as string, Value as Variant, Option_ as Empty ) as string

.ini ファイルに書かれた設定値を変更します。

変更前の .ini ファイルの内容

セクション名、セクションがないファイルでは=Empty

変更後の .ini ファイルの内容

Empty を指定してください

変更後の変数の設定値

T_SetIniFileTextValue

該当する変数が存在しないときは、エラーになります。

Sub RenumberIniFileData( ReadStream as TextStream, WriteStream as TextStream,
StartNumber as integer, IsPlusSpaceLineOnly as boolean )

.ini ファイルの内容のうち、= より左にある ( ) の中の番号を振り直します。

入力ストリーム

出力ストリーム

空行があるときだけ番号を＋１するかどうか

サンプル・データ

Data(2) = ABC
Data(5) = DEF
Data(6) = DEF

Data(1) = ABC
Data(2) = DEF
Data(3) = DEF

Function ParseJSON( JSON_String as string ) as JS_Object

JSON をパース（構文解析）します。

JSON 形式の文字列データ

JSON のデータにアクセスできるオブジェクト

Set json = ParseJSON( "{'attribute_1':'One', 'attr2':'Two'}" )
echo json.attribute_1 '// "One"

→ JSON (JavaScript Object Notation)

省略された属性に対して、返り値から参照しようとすると、エラー 438 になります。

CutSharpIf "sample.c", Empty, "SAMPLE", True

Sub CutSharpIf( InputPath as string, OutputPath as string, Symbol as string, IsCutTrue as boolean )

#ifdef ～ #endif をカットします。

入力ファイルやフォルダーのパス

出力ファイルやフォルダーのパス

#define シンボル、または、#if の条件文

#if が真の部分をカットする(True)か、偽の部分をカットする(False)か

→ T_CutSharpIf.vbs

CutSharpIf "FolderA", "FolderB", "SAMPLE_A || SAMPLE_B", False

→ ParsedRanges_getCut_by_PP_Directive

Sub CutCommentC( in_Path as string, in_Empty as Empty )

C/C++言語のソースファイルからコメントを削除します。

コメントを削除するソースファイルのパス

Empty を指定してください（予約）

→ clib - CutCommentC_1

コメントを削除する前の内容は上書きされて無くなるので、バックアップを取ってから実行して
ください。

→ T_CutCommentC.vbs

Set w_=AppKey.NewWritable( "Folder" ).Enable()
CutCommentC "Folder\Source.c", Empty

in_Path 引数には、

の引数のようにワイルドカードなどを指定できます。

→ T_NaturalDocs.vbs

MakeDocumentByNaturalDocs "src", "HTML", Empty

Sub MakeDocumentByNaturalDocs( SourceRootPath as string, DocumentRootPath as string,
Options as Empty )

Natural Docs を実行して、ソースファイルからHTML形式のドキュメントを生成します。

ソースファイルがあるフォルダーのパス

HTML形式のドキュメントを生成するフォルダーのパス

Empty を指定してください

Natural Docs や ActivePerl がインストールされていないと、インストールを即す警告が表示
されます。

DocumentRootPath に指定したパスにフォルダーを消すと、Natural Docs のプロジェクト
フォルダー（キャッシュ）を作り直します。プロジェクトフォルダーは、

の中に作られ、日付が変わると作り直します。

を設定すると、Natural Docs に入力する拡張子を

変更できます。

ソースファイルは、現在のコードページ（日本なら Shift-JIS）、または Unicode（UTF-16) に
してください。

MakeDocumentBy_doxygen "src", "HTML", Empty

Sub MakeDocumentBy_doxygen( SourceRootPath as string, DocumentRootPath as string,
Options as Empty )

doxygen を実行して、ソースファイルからHTML形式のドキュメントを生成します。

ソースファイルがあるフォルダーのパス

HTML形式のドキュメントを生成するフォルダーのパス

Empty を指定してください

ソースファイルは、現在のコードページ（日本なら Shift-JIS）、または Unicode（UTF-16) に
してください。

doxygen がインストールされていないと、インストールを即す警告が表示されます。

の中に作られ、日付が変わると作り直します。

を設定すると、Natural Docs に入力する拡張子を

変更できます。

Sub ConvertDocumetCommentFormat( InputPath as string, OutputPath as string,
InputFormat as string, OutputFormatFilePath as string )

プログラムのソースファイルの中にある、ドキュメントに変換できるコメントの形式を変換します。

現在、"NaturalDocs" のみ指定できます

→ T_TextSection.vbs

出力するコメントのテンプレートが書かれたファイルのパス

OutputFormatFilePath

入力ファイルやフォルダーのパス

出力ファイルやフォルダーのパス

→ T_ConvertDCF フォルダー

ConvertDCF_Class_convert

NaturalCommentClass_printXML

NaturalDocsHeaderClass

ConvertDCF_onXML_Element

if ( _tcsicmp( in_Status->TagName, _T("Text") ) == 0 ) {

ConvertDCF_Class::Comments.ID

ConvertDCF_CommentClass_getReplaced

/* Set "descriptions" : Replaced from "${Descriptions}" */

ConvertDocumentCommentFormat

ConvertDocumetCommentFormat

１つのコメントを置き換える

MakeNaturalComments_C_Language

NaturalDocs 形式コメントをパースする

現在、C言語の NaturalDocs 形式コメントから、doygen (Javadoc)形式コメントへの変換の
一部のみ可能です。

Sub DoTextShrink( TxMxFilePath as string, Option as Empty )

セクション（NaturalDocs で区切ったソースファイル）のうち、使用していないセクションを削除します。

編集するファイルなどが記述された .txmx ファイルのパス（下記）

Empty を指定してください

→ T_TextSection.vbs

ListUpTextShrinkKeywords

ListUpUsingTxMxKeywords

MakeShrinkedSectionsFile

ListUpUsingTxMxKeywords

TxMxListUp_listUpUsedNames

TxMxListUp_readSetting

MakeNaturalComments_C_Language

→ T_TextShrink フォルダー

CSV 形式の１行を解析して、それぞれの項目を配列に格納します。

Function ArrayFromCSV( a_CSV as string ) as Array of string

For Each column In ArrayFromCSV( "ABC , DEF" )
Next

（出力）CSV の項目が入った配列

各項目の両端の空白が削除されたものが戻ります。
項目の端に空白文字がある場合と、項目の中にコンマやダブルクォーテーション(")が
あるときは、" " で囲んでください。ただし、ダブルクォーテーション1文字あたり、
ダブルクォーテーションを２つ並べてください。

→ T_CSV.vbs # ArrayFromCSV

Function ArrayFromCSV_Int( a_CSV as string ) as Array of integer

上記 ArrayFromCSV の返り値は、Array( "ABC", "DEF" )

ArrayFromCSV( "A, "" """"ABC,"""" """ )

CSV とは別に、VBS も同様に " 文字は " を２つ並べる

"A, ,C" の真ん中の要素のように、何も無いときは、配列の要素が Empty になります。
"A, " のように最後がコンマのときは、配列の最後の要素が Empty になります

" " のように、空白文字や空文字列のときは、配列要素数が 0 になります。

ArrayFromCSV( "A,,C" ) = Array( "A", Empty, "C" )

ArrayFromCSV( "A," ) = Array( "A", Empty )

要素に "" （ダブルクオーテーション２つだけ）が指定されたときは、空文字列になります。

ArrayFromCSV( "A, """"" ) = Array( "A", "" )

ArrayFromCSV( " " ) = Array( )

複数行の文字列を指定するときは、最後の行以外の行末を "," にしてください。

ArrayFromCSV( "A, B," +vbCRLF+ "C, D," +vbCRLF+ "E, F" )
= Array( "A","B","C","D","E","F" )